home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / ksc_BrdrBlnk.lha / BorderBlank.asm next >
Encoding:
Assembly Source File  |  1998-04-08  |  709 b   |  34 lines
  1. ; BorderBlank 1.2 : adds/removes black border round display
  2. ; by Kyzer/CSG
  3. ; $VER: BorderBlank.asm 1.2 (08.04.98)
  4. ; 
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/intuition_lib.i
  8.     include    intuition/intuitionbase.i
  9.     include    intuition/screens.i
  10.     include    graphics/view.i
  11.  
  12.     move.l    4.w,a6
  13.     lea    intname(pc),a1
  14.     moveq    #36,d0
  15.     jsr    _LVOOpenLibrary(a6)
  16.     tst.l    d0
  17.     beq.s    .quit
  18.     move.l    d0,a6
  19.     moveq    #0,d0
  20.     jsr    _LVOLockIBase(a6)
  21.     move.l    ib_FirstScreen(a6),a0
  22.     move.l    sc_ViewPort+vp_ColorMap(a0),a0
  23.     bchg.b    #CMB_BRDRBLNK,cm_Flags(a0)
  24.     move.l    d0,a0
  25.     jsr    _LVOUnlockIBase(a6)
  26.     jsr    _LVORemakeDisplay(a6)
  27.     move.l    a6,a1
  28.     move.l    4.w,a6
  29.     jsr    _LVOCloseLibrary(a6)
  30. .quit    moveq    #0,d0
  31.     rts 
  32.  
  33. intname    dc.b    'intuition.library',0
  34.